 Private Sub opendata()
 Set rs1 = New ADODB.Recordset
 Set rs2 = New ADODB.Recordset
 Set rs3 = New ADODB.Recordset
 Set rs4 = New ADODB.Recordset
 Set rs6 = New ADODB.Recordset
 Set rs7 = New ADODB.Recordset
 
 
 
     Sqlqty = "select sum(Qty) as TotQty from TmpDetails"
     rs1.Open Sqlqty, Cn, adOpenStatic, adLockOptimistic, adCmdText
     
     SqlNet = "select sum(TotalPrice) as TotNet from TmpDetails"
     rs2.Open SqlNet, Cn, adOpenStatic, adLockOptimistic, adCmdText
        
     SqlGros = "select sum(TotalGross) as TotGross from TmpDetails"
     rs3.Open SqlGros, Cn, adOpenStatic, adLockOptimistic, adCmdText
     
     SqlPaid = "select sum(EquivAmount) as TotPaid from TmpPayments"
     rs4.Open SqlPaid, Cn, adOpenStatic, adLockOptimistic, adCmdText
     
     sqlstut = "select PosNo as PosNo from config"
     rs6.Open sqlstut, Cn, adOpenStatic, adLockOptimistic, adCmdText
     
     sqlstut2 = "select SequenceNo as SeqNo from config"
     rs7.Open sqlstut2, Cn, adOpenStatic, adLockOptimistic, adCmdText

     
End Sub
